﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class ReservaVenta
    Inherits System.Web.UI.Page

    Public TotalReserva As Double = 0

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            Poblarcarrito()

            'Hacemos una referencia a la clase
            Dim capanegocios As New CarritoBL
            Dim carrito As New BE.CarritoBE

            'llenamos  las  propiedades
            carrito.codigo = Session("CARRITO")

            'Procedemos a eliminar el carrito de compras
            'Invocamos al método EliminarCarrito definido previamente en la clase
            capanegocios.EliminarCarrito(carrito)

            'Reseteamos el código del carrito de compras (muy importante)
            carrito.codigo = Nothing

            'Liberamos recursos
            capanegocios = Nothing

        End If
    End Sub

    Sub Poblarcarrito()

        'Si el cliente hace clic al enlace CarritoCompras
        'sin haber elegido ningún servicio
        If Session("CARRITO") = "" Or Session("CARRITO") = Nothing Then
            Response.Redirect("Default.aspx")
        End If

        'Hacemos una referencia a la clase
        Dim capanegocios As New CarritoBL
        Dim carrito As New BE.CarritoBE

        'llenamos  las  propiedades
        carrito.codigo = Session("CARRITO")


        'Invocamos al método ConsultarCarrito definido previamente en la clase
        repcarrito.DataSource = capanegocios.ConsultarCarrito(carrito)
        repcarrito.DataBind()
        'Liberamos recursos
        capanegocios = Nothing

        If TotalReserva > 0 Then
            Session("TotalReserva") = TotalReserva
        End If

        lblfecha.Text = "Fecha: " & Today
        lblreserva.Text = "Reserva: " & carrito.codigo



    End Sub

    Function SubTotalReserva(ByVal Precio As Decimal, ByVal Cantidad As Integer) As Decimal
        Dim Subtotal As Decimal

        Subtotal = Precio * Cantidad
        TotalReserva += Subtotal
        Return Subtotal

    End Function

    Function ImporteTotalReserva() As Decimal

        Return TotalReserva

    End Function
End Class
